home *** CD-ROM | disk | FTP | other *** search
/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / lib / perl / curses.ph < prev    next >
Encoding:
Text File  |  1991-08-12  |  6.7 KB  |  232 lines
  1. if (!defined &WINDOW) {
  2.     eval 'sub bool {\'char\';}';
  3.     eval 'sub reg { ®ister;}';
  4.     eval 'sub TRUE {(1);}';
  5.     eval 'sub FALSE {(0);}';
  6.     eval 'sub ERR {(0);}';
  7.     eval 'sub OK {(1);}';
  8.     eval 'sub _ENDLINE {001;}';
  9.     eval 'sub _FULLWIN {002;}';
  10.     eval 'sub _SCROLLWIN {004;}';
  11.     eval 'sub _FLUSH {010;}';
  12.     eval 'sub _FULLLINE {020;}';
  13.     eval 'sub _IDLINE {040;}';
  14.     eval 'sub _STANDOUT {0200;}';
  15.     eval 'sub _NOCHANGE {-1;}';
  16.     eval 'sub _puts {
  17.         local($s) = @_;
  18.         eval " &tputs($s, 0,  &_putchar)";
  19.     }';
  20.     eval 'sub WINDOW {\'struct _win_st\';}';
  21.     if (defined &lint) {
  22.     eval 'sub VOID {
  23.         local($x) = @_;
  24.         eval "( &__void__ = (\'int\') ($x))";
  25.     }';
  26.     }
  27.     else {
  28.     eval 'sub VOID {
  29.         local($x) = @_;
  30.         eval "($x)";
  31.     }';
  32.     }
  33.     eval 'sub addch {
  34.         local($ch) = @_;
  35.         eval " &VOID( &waddch( &stdscr, $ch))";
  36.     }';
  37.     eval 'sub getch {
  38.         eval " &VOID( &wgetch( &stdscr))";
  39.     }';
  40.     eval 'sub addbytes {
  41.         local($da,$co) = @_;
  42.         eval " &VOID( &waddbytes( &stdscr, $da,$co))";
  43.     }';
  44.     eval 'sub addstr {
  45.         local($str) = @_;
  46.         eval " &VOID( &waddbytes( &stdscr, $str,  &strlen($str)))";
  47.     }';
  48.     eval 'sub getstr {
  49.         local($str) = @_;
  50.         eval " &VOID( &wgetstr( &stdscr, $str))";
  51.     }';
  52.     eval 'sub move {
  53.         local($y, $x) = @_;
  54.         eval " &VOID( &wmove( &stdscr, $y, $x))";
  55.     }';
  56.     eval 'sub clear {
  57.         eval " &VOID( &wclear( &stdscr))";
  58.     }';
  59.     eval 'sub erase {
  60.         eval " &VOID( &werase( &stdscr))";
  61.     }';
  62.     eval 'sub clrtobot {
  63.         eval " &VOID( &wclrtobot( &stdscr))";
  64.     }';
  65.     eval 'sub clrtoeol {
  66.         eval " &VOID( &wclrtoeol( &stdscr))";
  67.     }';
  68.     eval 'sub insertln {
  69.         eval " &VOID( &winsertln( &stdscr))";
  70.     }';
  71.     eval 'sub deleteln {
  72.         eval " &VOID( &wdeleteln( &stdscr))";
  73.     }';
  74.     eval 'sub refresh {
  75.         eval " &VOID( &wrefresh( &stdscr))";
  76.     }';
  77.     eval 'sub inch {
  78.         eval " &VOID( &winch( &stdscr))";
  79.     }';
  80.     eval 'sub insch {
  81.         local($c) = @_;
  82.         eval " &VOID( &winsch( &stdscr,$c))";
  83.     }';
  84.     eval 'sub delch {
  85.         eval " &VOID( &wdelch( &stdscr))";
  86.     }';
  87.     eval 'sub standout {
  88.         eval " &VOID( &wstandout( &stdscr))";
  89.     }';
  90.     eval 'sub standend {
  91.         eval " &VOID( &wstandend( &stdscr))";
  92.     }';
  93.     eval 'sub mvwaddch {
  94.         local($win,$y,$x,$ch) = @_;
  95.         eval " &VOID( &wmove($win,$y,$x)== &ERR? &ERR: &waddch($win,$ch))";
  96.     }';
  97.     eval 'sub mvwgetch {
  98.         local($win,$y,$x) = @_;
  99.         eval " &VOID( &wmove($win,$y,$x)== &ERR? &ERR: &wgetch($win))";
  100.     }';
  101.     eval 'sub mvwaddbytes {
  102.         local($win,$y,$x,$da,$co) = @_;
  103.         eval " &VOID( &wmove($win,$y,$x)== &ERR? &ERR: &waddbytes($win,$da,$co))";
  104.     }';
  105.     eval 'sub mvwaddstr {
  106.         local($win,$y,$x,$str) = @_;
  107.         eval " &VOID( &wmove($win,$y,$x)== &ERR? &ERR: &waddbytes($win,$str, &strlen($str)))";
  108.     }';
  109.     eval 'sub mvwgetstr {
  110.         local($win,$y,$x,$str) = @_;
  111.         eval " &VOID( &wmove($win,$y,$x)== &ERR? &ERR: &wgetstr($win,$str))";
  112.     }';
  113.     eval 'sub mvwinch {
  114.         local($win,$y,$x) = @_;
  115.         eval " &VOID( &wmove($win,$y,$x) ==  &ERR ?  &ERR :  &winch($win))";
  116.     }';
  117.     eval 'sub mvwdelch {
  118.         local($win,$y,$x) = @_;
  119.         eval " &VOID( &wmove($win,$y,$x) ==  &ERR ?  &ERR :  &wdelch($win))";
  120.     }';
  121.     eval 'sub mvwinsch {
  122.         local($win,$y,$x,$c) = @_;
  123.         eval " &VOID( &wmove($win,$y,$x) ==  &ERR ?  &ERR: &winsch($win,$c))";
  124.     }';
  125.     eval 'sub mvaddch {
  126.         local($y,$x,$ch) = @_;
  127.         eval " &mvwaddch( &stdscr,$y,$x,$ch)";
  128.     }';
  129.     eval 'sub mvgetch {
  130.         local($y,$x) = @_;
  131.         eval " &mvwgetch( &stdscr,$y,$x)";
  132.     }';
  133.     eval 'sub mvaddbytes {
  134.         local($y,$x,$da,$co) = @_;
  135.         eval " &mvwaddbytes( &stdscr,$y,$x,$da,$co)";
  136.     }';
  137.     eval 'sub mvaddstr {
  138.         local($y,$x,$str) = @_;
  139.         eval " &mvwaddstr( &stdscr,$y,$x,$str)";
  140.     }';
  141.     eval 'sub mvgetstr {
  142.         local($y,$x,$str) = @_;
  143.         eval " &mvwgetstr( &stdscr,$y,$x,$str)";
  144.     }';
  145.     eval 'sub mvinch {
  146.         local($y,$x) = @_;
  147.         eval " &mvwinch( &stdscr,$y,$x)";
  148.     }';
  149.     eval 'sub mvdelch {
  150.         local($y,$x) = @_;
  151.         eval " &mvwdelch( &stdscr,$y,$x)";
  152.     }';
  153.     eval 'sub mvinsch {
  154.         local($y,$x,$c) = @_;
  155.         eval " &mvwinsch( &stdscr,$y,$x,$c)";
  156.     }';
  157.     eval 'sub clearok {
  158.         local($win,$bf) = @_;
  159.         eval "($win-> &_clear = $bf)";
  160.     }';
  161.     eval 'sub leaveok {
  162.         local($win,$bf) = @_;
  163.         eval "($win-> &_leave = $bf)";
  164.     }';
  165.     eval 'sub scrollok {
  166.         local($win,$bf) = @_;
  167.         eval "($win-> &_scroll = $bf)";
  168.     }';
  169.     eval 'sub flushok {
  170.         local($win,$bf) = @_;
  171.         eval "($bf ? ($win-> &_flags |=  &_FLUSH):($win-> &_flags &= ~ &_FLUSH))";
  172.     }';
  173.     eval 'sub getyx {
  174.         local($win,$y,$x) = @_;
  175.         eval "$y = $win-> &_cury, $x = $win-> &_curx";
  176.     }';
  177.     eval 'sub winch {
  178.         local($win) = @_;
  179.         eval "($win-> &_y[$win-> &_cury][$win-> &_curx] & 0177)";
  180.     }';
  181.     eval 'sub raw {
  182.         eval "( &_tty. &sg_flags|= &RAW,  &_pfast= &_rawmode= &TRUE,  &stty( &_tty_ch,& &_tty))";
  183.     }';
  184.     eval 'sub noraw {
  185.         eval "( &_tty. &sg_flags&=~ &RAW, &_rawmode= &FALSE, &_pfast=!( &_tty. &sg_flags& &CRMOD), &stty( &_tty_ch,& &_tty))";
  186.     }';
  187.     eval 'sub cbreak {
  188.         eval "( &_tty. &sg_flags |=  &CBREAK,  &_rawmode =  &TRUE,  &stty( &_tty_ch,& &_tty))";
  189.     }';
  190.     eval 'sub nocbreak {
  191.         eval "( &_tty. &sg_flags &= ~ &CBREAK, &_rawmode= &FALSE, &stty( &_tty_ch,& &_tty))";
  192.     }';
  193.     eval 'sub crmode {
  194.         eval " &cbreak()";
  195.     }';
  196.     eval 'sub nocrmode {
  197.         eval " &nocbreak()";
  198.     }';
  199.     eval 'sub echo {
  200.         eval "( &_tty. &sg_flags |=  &ECHO,  &_echoit =  &TRUE,  &stty( &_tty_ch, & &_tty))";
  201.     }';
  202.     eval 'sub noecho {
  203.         eval "( &_tty. &sg_flags &= ~ &ECHO,  &_echoit =  &FALSE,  &stty( &_tty_ch, & &_tty))";
  204.     }';
  205.     eval 'sub nl {
  206.         eval "( &_tty. &sg_flags |=  &CRMOD, &_pfast =  &_rawmode, &stty( &_tty_ch, & &_tty))";
  207.     }';
  208.     eval 'sub nonl {
  209.         eval "( &_tty. &sg_flags &= ~ &CRMOD,  &_pfast =  &TRUE,  &stty( &_tty_ch, & &_tty))";
  210.     }';
  211.     eval 'sub savetty {
  212.         eval "(( &void)  >ty( &_tty_ch, & &_tty),  &_res_flg =  &_tty. &sg_flags)";
  213.     }';
  214.     eval 'sub resetty {
  215.         eval "( &_tty. &sg_flags =  &_res_flg, ( &void)  &stty( &_tty_ch, & &_tty))";
  216.     }';
  217.     eval 'sub erasechar {
  218.         eval "( &_tty. &sg_erase)";
  219.     }';
  220.     eval 'sub killchar {
  221.         eval "( &_tty. &sg_kill)";
  222.     }';
  223.     eval 'sub baudrate {
  224.         eval "( &_tty. &sg_ospeed)";
  225.     }';
  226.     eval 'sub unctrl {
  227.         local($c) = @_;
  228.         eval " &_unctrl[($c) & 0177]";
  229.     }';
  230. }
  231. 1;
  232.